unit ReactionGui;

interface

uses
  InventionCalc, GlobalRecordsAndEnums,

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfrmReaction = class(TForm)
    btnClose: TButton;
    procedure btnCloseClick(Sender: TObject);
  private
    inventionCalc: TInventionCalc;
  public
    constructor Create(AOwner: TComponent; invCalc: TInventionCalc);
  end;

var
  frmReaction: TfrmReaction;

implementation

{$R *.dfm}

constructor TfrmReaction.Create(AOwner: TComponent; invCalc: TInventionCalc);
begin
  inherited Create(AOwner);
  inventionCalc := invCalc;
end;

procedure TfrmReaction.btnCloseClick(Sender: TObject);
begin
  self.Release;
  self.Close;
end;

end.
